home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / cr_smm32 / SIMPLEMI.FRM < prev    next >
Text File  |  1998-11-29  |  3KB  |  96 lines
  1. VERSION 5.00
  2. Object = "{3B0492A9-83AA-11D2-A7E0-00A0246054F5}#2.0#0"; "cr_smm32.ocx"
  3. Begin VB.Form frmSimpleMinMax 
  4.    Caption         =   "SimpleMinMax Demo"
  5.    ClientHeight    =   2340
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1770
  8.    ClientWidth     =   3675
  9.    ForeColor       =   &H80000008&
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   2340
  14.    ScaleWidth      =   3675
  15.    Begin VB.TextBox txtFind 
  16.       Height          =   315
  17.       Left            =   720
  18.       TabIndex        =   1
  19.       Top             =   60
  20.       Width           =   2895
  21.    End
  22.    Begin VB.DriveListBox drvWhere 
  23.       Height          =   315
  24.       Left            =   720
  25.       TabIndex        =   3
  26.       Top             =   420
  27.       Width           =   2895
  28.    End
  29.    Begin VB.ListBox lstResults 
  30.       Height          =   840
  31.       IntegralHeight  =   0   'False
  32.       ItemData        =   "SimpleMinmax.frx":0000
  33.       Left            =   30
  34.       List            =   "SimpleMinmax.frx":0007
  35.       TabIndex        =   4
  36.       Top             =   840
  37.       Width           =   3555
  38.    End
  39.    Begin VB.Label lblDemo 
  40.       AutoSize        =   -1  'True
  41.       Caption         =   "Find: "
  42.       Height          =   195
  43.       Index           =   0
  44.       Left            =   120
  45.       TabIndex        =   0
  46.       Top             =   120
  47.       Width           =   390
  48.    End
  49.    Begin VB.Label lblDemo 
  50.       AutoSize        =   -1  'True
  51.       Caption         =   "Where: "
  52.       Height          =   195
  53.       Index           =   1
  54.       Left            =   120
  55.       TabIndex        =   2
  56.       Top             =   480
  57.       Width           =   570
  58.    End
  59.    Begin cr_smm32.SimpleMinMax smmDemo 
  60.       Left            =   1500
  61.       Top             =   1800
  62.       _ExtentX        =   847
  63.       _ExtentY        =   847
  64.       DebugMode       =   -1  'True
  65.       MinWidth        =   200
  66.       MinHeight       =   200
  67.       MaxWidth        =   400
  68.       MaxHeight       =   400
  69.    End
  70.    Begin VB.Menu mnuFile 
  71.       Caption         =   "File"
  72.       Begin VB.Menu mnuFileItem 
  73.          Caption         =   "Exit"
  74.       End
  75.    End
  76. End
  77. Attribute VB_Name = "frmSimpleMinMax"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Option Explicit
  83.  
  84. Private Sub Form_Resize()
  85.     If WindowState <> vbMinimized Then
  86.         txtFind.Width = ScaleWidth - txtFind.Left - 30
  87.         drvWhere.Width = ScaleWidth - drvWhere.Left - 30
  88.         lstResults.Width = ScaleWidth - 60
  89.         lstResults.Height = ScaleHeight - lstResults.Top - 30
  90.     End If
  91. End Sub
  92.  
  93. Private Sub mnuFileItem_Click()
  94.     Unload Me
  95. End Sub
  96.